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3 “TITLE $HOWADAP = SHOW ADAPTER and GENERIC ADAPTER NAMES 
» IDEN 

0000 

0000 

0000 


+ ennenseseneseequoninenenseunbdecnnnbentieaudbatensensetebsdeadbennnuseeenen 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


* a 
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-@ we 
*® ® 
-* e 
jt THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:# TRANSFERRED. x 
:® ® 
# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT  * 

® 
:@ ® 
:® ® 
*® ® 
*® ® 
*® & 
** * 


SOOO OCOCOOCoOOooOoCoOooOooOoooo 
po lm lala leo lo lololololololeolololololololo) 


SOQoQooQooooooooooo 
SOOO OCOCOCOOOOCOOOOOCoOoSoO 


Add support for mixed 16k and 64k memory display. 
V03-002 KDM0084 Kathleen D. Morse 23-Sep-1983 


} 
& 
¢ 
10 
i] 
18 
14 
12 
ie 
15 : 
st CORPORATION. 
$ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0000 Z SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0000 é | PARAAAAALAAALALALALALALEELELERE EERE SER ERE SESE REECE EEE CECE SELES EEE EEC CCE ECE. 
0000 8 
0000 9 ++ 
0000 0 : FACILITY: SYSGEN 
0000 13 
0000 $i 3 ABSTRACT: 
44 Z : THIS ROUTINE PROVIDES GENERIC ADAPTER NAMES FOR SYSGEN 
9000 35: : ENVIRONMENT: USER, EXEC MODE 
9000 i AUTHOR: Jake VanNoy CREATION DATE: 30-APR-1981 
9000 39; : MODIFICATION HISTORY: 
0000 «= 41 v03-006 Tcmoo02 Trudy C. Matthews 25-Jul-1984 
44 4g : 3 Change venus cpu model number from 11/790 to 8600. 
9009 44 v03-005 KPLO100 er Lieberwirth 10-F eb-1984 
00 45 ; che ange CONFREG to *CONFREGL a longword-array of adapter 
$333 faeh 
49 $8 : Permit undefined adapter types without 5 Signatt ing an error, 
44 3 : foreign adapters are anticipated on the 
9000 31 ; v03-004 wHm0002 Bill Matthews 01-Feb-1984 
44 gi : © adapter default is now -1 not 0. BOOSRESET_ADAP was modified. 
$8 54 | : v03-003 WHM0001 Bill Matthews 31-Jan-1984 
00 
$009 38 : 3 
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Add MicroVAX I and MicroVAX II to CPUDISP. 


v03-001 Tonoogs Trudy C. Matthews 03-Au “Yee 
Re-write code that displays CPU model number use the 
new format CPUDISP macro. Add support for 78 socal display. 


v02-007 JLV0139 Jake VanNoy 2-Jan-1981 
Remove revision number code because of problems 
with neraattés of eerie will wait for GETSYI 
calls to go this. BuTPUr calls to LIBSPUT_OUTPUT 


with calls to MRiOsOU UT_LINE. 
v02-006 JLV0118 Jake VanNoy 99-Nov-1981 
Added code to report errors in BOOSADAPTER. NAME . 
v02-005 JLV0091 Jake VanNo ce-Sep-1961 


Expand number of bytes in booSab_ count _blk. 
Also removed MPM's and DR's from ‘generic’ 


classification. 

v02-004 JLV0086 Jake VanNoy 15-Sep-1981 
Added 64 bit memory support and changed the way lookups 
are done. 

v02-003 JLV0041 Jake VanNoy 13-Jul-1981 
Added G* to LIB$ call. 

v02-002 JLV0035 Jake VanNoy 6-Jul-1981 


Added CI definition. 


SOCoCOoooooQoooooQoooQooooooooooooo 
COOOoCOoOooOCOOCOooOOOoOOCOOOCOOOOOOOOOOooOo 
SOOCOOooooCoOooOoooooooQooooooooooooo 
COOCCOCOCOCOOCOCCOOCOO OOOO OOOOOOOOCoOOo 
VSR FES VANS ORIN SSSIS ASSERTS Seo 
See Ss Se Ge Ge Se Ge Se Be Se Se Ge Ge Se Se Se Ge Se Ge Ge Se Se Ge Ge Ge Ge Se Ge Ge 


000909090009 09 09 INI INI NINN NIA AAA AAAAO 


a es ie a Oe ee ee 
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/W04-000 DECLARATIONS . att eee feoors spe SooURbAS MAR: 1 tre (2) 
| 89 .SBTTL DECLARATIONS 

| : : INCLUDE FILES: 


if 


94 ; 
0 95 ; CONSTANTS: 
0 38 3 
000000A $0 3 LF = 10 
0000014 000 Ri boo$c_count_blk = 20 
8 1 ° 3 
00 1 ¢ 3; MACROS: 
00 103 ; 
0000 + 
000 105 SNDTDEF 
000 196 SPROEF 
000 10 SSYSGMSGDEF 
0000 198 STPADEF 
0000 109 
0000 110 $VIELD 600,0,<- 
2093 1 <GENERIC ,M>,- 
00000000 0000 113 L_CONSTANT = 0 ; CONSTANT = NDT adapter t d 
00000004 0000 114 WTFLAGS | t only flag is GENERIC, means memory or DR32 
00000006 0000 115 W_INDEX = 6 : INDEX is sysgen-specific, used to associate 
0000 116 3; occurance counts with adapters, 
0000 117 3; MBA=0, UBA=1, CI= 
00000008 +464 118 L_NAME = 8 : Offset to ASCID string containing adapter name 
44 139 -Macro Adapter constant,string=<>,Flags = 0,index 
0000 12 -PSECT PAGED_DATA wrt, . 
448 \$¢ gaec! i - rd,wrt,noexe,quad 
0000 ise »LONG CONSTANT 
0000 125 eWORD FLAGS 
0000 126 «WORD INDEX 
0000 127 eASCID /STRING/ 
$000 133 PSECT PAGED_DATA d.wrt d 
e r e r on a 
9000 180 "LONG «$88 ph ots te 
000 131 
it ! -Endm adapter 
000 134; 
4 135 ; OWN STORAGE: 
| 000 137° 
| 0000000 : 8 -PSECT PAGED_DATA rd,wrt,noexe,quad 
00000040 090 109 Maxnexus = 64 ; maximum is 4 Bis 
| 0010 09 146 Boofab_confreg. blk: -blkl = maxnexus 3 
000014 1 145 Boo$ab_adap_idx: -blkb = =maxnexus 3 
00024 14 144 Boo$ab_adap_txt: -blkl = maxnexus : 
24 145 
| 
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vO4 DECLARATIONS 
| 00000254 
9 $F SHO88255 "91950008 
Ppeediia 
PPE bestia 
79 54 3 toto 
79 54 ; é A Boh . 
58 41 56 6F } 63 4 é3 8 
ry £4 29 65 $9 69 gonaaera grok dob 

6F 72 6 A 6 
49 49 20 
00000000 
sia aia 4g 44 
0000032D 
3c 33 21 20 $f eo 00000335 °010E0000" 
41 21 20 20 20 5F 21 3E ¢} of 53 $i 
3c 33 21 $8 20 g 90000388"370 0000" 
41 21 20 20 20 SF 21 3E 21 4C 55 $3 
75 78 65 4E 20 OA 00 oF g10E 0000" 
63 69 72 65 6E 65 20 20 20 0 

73 65 44 20 72 6F 20 65 6D 61 4E 20 


6E 6F 69 74 70 69 72 63 
0000039C °010E0000° 


77 OF 6E 6B 6E 55 Soseeans “preesees” 


00000000 


3S &. 3333 
FEF 

Oooo 

MOMWAVIUIVIOCOW? 


nn POO LSOOGCLOONOD NDS SF ONIN DH SOMES POMS POWELLS 
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DOONAN 
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Boo$ab_Count_blk: 


C780: 
C750: 
€730: 
C790: 
C785: 
Cuvi: 


Cuve: 


str_size: 
str. “addr: 
str_start: 


ctr_generic: 


ctr_memory: 


header: 


trailer: 
unk _adap: 


called_flag: 


4-SEP-19 


»bLkb 


-ascid 
-ascid 
-ascid 
-ascid 
-ascid 
-ascid 


-ascid 


- long 
. lon 
“blk 
-ascid 


-ascid 


-ascid 


-ascid 
-ascid 


- long 


4 
BOOTS. SRC JSHOWADAP .MAR ; 1 (2) 


boo$c_count_blk ; This many adapter types need 
; occurance counts. 


acPU Type: 11/7808 
acPU Type: 11/7508 
acPU Type: 11/7308 
@CPU Type: 86008 
acPU Type: 11/785a 
@CPU Type: MicroVAX Ia 


acPU Type: MicroVAX Ila 


0 
0 
32 

/ $3<!UL!>!_ 1 AS!UB/ 


F Seals 86 (fA 


<LF>/ Nexus Generic Name or Description/ 


// 


/Unknown/ 


0 
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4 
= SHOW ADAPTER and GENERIC ADAPTER NAMES 16- 


; ADAPTER TABLE 
Boo$al_adap_tabl 
adapter 


4 


e: 
NDTS_MEMGNI, 


adapter NDT$_MEM4I 


adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 
adapter 


long 
Note: 


NOTS"MEMIONI, 
NDOTS-MEM161 
NDT$"MEM1664NI, 
NDTS_MB 


% <MB>, B8oo0$m_generic, " 
NDT$_UB0, <UB>, BooSm_generic, 1 
NDT$_UB1, <UB>, BooSm_generic, 1 
NDT$_UB2, <UB>, Boo$m_generic, 1 
NDT$_UB5, <UB>, Boo$m_generic, 1 
NDT$_CI <CI> Boo$m_generic, 2 
NDTS_MPMO, <MPMO> 
NDTS_MPM1, <MPM1> 
NDTS_MPM2, <MPM2> 
NDTS_MPMS, <MPM3> 
NDTS_OR32 <DR32> 
NDTS-MEMO4NIL, <64K non-interleaved memory, lower controller> | 
NDTS_MEM64EIL, <64K ee interleaved memory, lower controller 
NDTS_MEM64NIU, <64K non-interleaved memory, upper controller> 
NDTS_MEM64EIU, <64K externally interleaved memory, upper controller. 
NDTS_MEM64I, <64K internally interleaved memory> 
0 ; End of table 


the constant boo$c_count_blk. 


SEP 
SEP- 
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<4K memory, non-interleaved> 

<4K memory, interleaved> 

<16K memory, non-interleaved> 

<16K memory, interleaved> 

<Mixed 16K and 64K memory, non-interleaved> 


The maximum index for géneric adapters above must less than or equal to 


— ne 


poo oe 
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«Sbttl BOOSSHOWADAP = SHOW/ADAPTERS routine 


:¢+ 


yee 
+ FUNCTIONAL DESCRIPTION: 


geen ONFREG and output text associated with each adapter. 
ext is to match qnectty what a user would type for the 
/ADAPTER qualifier or the AUTOCONFIGURE ‘‘adapter'’ command. 


; i 
7 
at 
? ; ; 
tor 51h: 
4 , 19 ; CALLING SEQUENCE: 
4 13 ; Called from TPARSE as an action routine 
rh 1 : INPUT PARAMETERS: 
407 7 ; 
le 
407 9 ; IMPLICIT INPUTS: 
697 : ; CONFREG. 
007 4 : OUTPUT PARAMETERS: 
0407 : : RO Completion code 
0407 : : IMPLICIT OUTPUTS: 
0407 0; NONE 
rae 
407 : 
et t4 : Register usage 
407 6 
ra? 
000090 ip -PSECT PAGED_CODE rd,nowrt,exe, long 
O7FC 000 rt: -Entry BOOSSHOW_ADAPTER, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10> 
ooB9'cF 00 F 000 rk calls #0,w*Show_Cpu : Show CPU specific data 
09 50 =«¢C€ 00 44 blbs RO,5$ ; Branch if OK 
50 DD OO0A 45 pushl R 3; Push error code 
00000000'GF 01 FB i 28 calls #1,G*Lib$Signal 3: Signal and continue 
00000366'EF OF 1 48 5$: ushal header 3 Set header 
000000A4 ‘EF 61 FB 3 ‘3 Calls #1 ,BooSOutput _Desc 3 Output header 
000001A1°EF F Q 51 108: alls #0,Get_All_Ada : Fill in Adap_txt and Adap_idx 
03 50 iB 6 52 bibs» R0.15$ . | branch 4¢ of ° 
0076 «631 «00 A 33 brw 80$ : Exit 
52 D4 002d 38 15$: clrl R2 ; initialize index F 
53 ong *EF 0 F 2$ movl exe$gl_numnexus ,R3 ; Set count (User readable location) 
$3 100°CF E 6 movab w*boo$ab_adap_idx,R4 3; Adapter index table 
5 140°CF = 9E 9 8 movab w*boo$ab_adap_txt,R5 ; Adapter text table 
57 6542 00 4 60 208: mov | (R5)CR2),R7 ; Get address of text descriptor 


—---- 


-— 
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| V04=000 BOOSSHOWADAP = SHOW/ADAPTERS routine 4-SEP-1984 25:06:02 ([BOOTS.SRCJSHOWADAP.MAR; 1 
61 beql 60$ : Branch if zero 
$6 cvtbl ip) thes Re ; Get index count 
te o7 blss 0$ : Branch if non-generic 
4¢ 65 SFAO_S Ctrstr = w*ctr_generic.- ; Format string 
4¢ 66 Outbuf = w*rio$ab_outbuf,- 
4C 6 Outlen = w*rio$gw_outlen,- 
04¢ 68 P1 = R2,- 3; Nexus number 
04C 4 Ps = R7,- ; Adapter text prefix address 
4 0 P = R6 3; Count 
_ ae é§ 4 brb 40$ 
067 *§ 30$: SFAO_S Ctrstr = w*ctr_memory,- ; Format string 
067 74 Outbuf = w*rioSab_outbuf.- 
0067 75 Outlen = w*rio$gw_outlen,- 
067 7 P1 = Ree= ; Nexus number 
p97 4 P2 =R ; Adapter text address 
0B 50 «EB Boas 40$: blbs RO,50$ :; branch if no error from fao 
50 DD 0081 81 45$: pusht RO ; Set error code 
00000000'GF 01 FB 0083 S calls #1,G*Lib$Signal 3 Signal Error 
os st ? brb 60$ 3; goto end of loop 
FF71° 30 O08C 85 50$: bsbw Cioteuteyt... ine ; Output Line 
AD 52 53 Fe 434 Hy 60$: aoblss R3,R2,208 ; Loop 
00000394°EF DF 0093 288 pushal trailer : Set up blank Line trailer 
OOOOO0AG'EF 01 FB +44 334 calls #1,B800$0utput_Desc ; Output header 
50 01 DO OOAO 291 mov #1,R0 
04 OOAS 292 80S: ret 


ee 


c---— 
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Boo$SOutput_Desc = Output a Line 


WANN 


so 
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BOOTS.SRC JSHOWADAP .MAR; 1 
-Sbttl BooSOutput_Desc = Output a Line 


BOOSOUTPUT_DESC 
Calling sequence 
CALLS #1,B00SOUTPUT_DESC 


Input: 
4(AP) = Address of descriptor of Line to output 


Output 
RIOSOUTPUT LINE is called. 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
t + 


-Entry BOOSOUTPUT_DESC,*M<R2,R3,R4,R5> 


movqg @4(AP),RO 

movw  RO,W*Rio$ Sow 

move3 RO,(R1),W RTosebe buffer 
aoe Rio$Output_ Line ~ 

re 


Fetch Descriptor into RO,R1 
Set ugagen 

Move into buffer to be written 
Output Line 


Page 
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34 Sbttl Show CPU = Show CPU specfic data 
003¢ a4 ¢ «Entry Show CPU, “M<R2,R3,R4,R5> 
00000394'°EF OF be 4 pushal trailer 3; Set up blank Line 
DF AF , 5 calls #1,Boo$Output_Desc ; Output 
E 8 blbc RO,End_show_cpu 3; branch on error 
8 
S 
0 
1 
33 
34 
35 
36 
37 
38 
339 
340 


This cumbersome way of picking up the CPU model number display is used so 
3a 


that all CPU-dependent code is flagged by the use of the C€ uD SP macro. 


-list meb 

cpudisp © - 

0_model>,=- 
0-model>,- 
5- ponies - 


01 00000000'GF 


GF ? CMPB Cs epetes? 
03 00000000'GF 17 § 
004E 


BNEQ 
BBC #23 o eure. CPUDATA, 30014$ 
BRW ©7385 model 


30014$: 
CASEB G*EXESGB_CPUTYPE ,#SSBASE ,#S$LIMIT 


A 


08 01 Q0000000°GF 8&F 


Oe ed ed dd dd I =I IQOOO OO COCO OCOOCOCOCOOCOCOSCOCSCSCOSOOOSCCSOOOOCOOOoOoOoCoO 


MONON) BQO TF FF HMMM MMMM OO OIAAAAAAAAAAAAAANMAAO 
MIMVIOPY PONIMOP POMNMOP PP POX LNOM OO SOWA L& LOM O— WOmmcomcococsocvcpacocouwn— 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 30015$: 
0016" 0 « SIGNED_WORD c780_model-30015$ 
OO1E’ 0 « SIGNED _WORD c750-model-30015$ 
0026" 0 « SIGNED_WORD ¢730_model-30015$ 
002E" 0 - SIGNED_WORD c790_model-30015$ 
0012 0 LIF EQ $$GENSW, eWORD 2*<$S$LIMIT+1> 
0012 0 LIF EQ S$S$GENSW WORD 2*<$$LIMIT+1> 
0036" 0 - SIGNED_WORD cuvi _model=30015$ 
0O3E° 0 » SIGNED_WORD cUV2_model-30015$ 
st 8 ne gfe. podel~ -30015$ 
0004" 0 ~IIF IDN <FATAL>,<FATAL> , .WORD BUGS_UNSUPRTCPU!4 
0 341 enlist meb 
0 208 c780_model : 
00000254"EF DF 0 34 ushal c¢ 
2—e 611 «+O 44 rb output_model 
8 45 ¢750_model: 
OOOOO26C*EF ODF 46 shal c750 
26 «611 «0 47 rb output_model 
0 48 c730_model: 
00000284"EF DF 0 49 ushal c730 
1€ #11 50 r output _model 
51 c790_model: 
OOOOO29C*EF OF 26 ushal c 
16 #611 «0 5 rb output_model 
54 cUV1_model: 
oooooecc*Er DF 55 ushal cUv1 
sian 2$ r output _model 
57 cUV2_model: 
OOOOOZES*EF OF 58 pushal cUV2 


9 
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Show CPU = Show CPU spec data SEP=1984 BOOTS.SRC JSHOWADAP.MAR; 1 ) 
06 11 «0128 59 brb output_model 
12A 60 ¢785_model: 
Q00002B4'"EF DF O12A 61 pushal c¢785 
130 368 
1 65 output_model: 
FFOF CF O01 FB 0130 64 calls #1,Boo$Output_Desc ; output 
0135 365 End_show_cpu: 
04 0135 366 ret 
0136 367 
0136 368 


EN Fk ee a ED RE 
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10 «Sbttl - BOOSADAPTER_NAME = generic adapter name parsing 


++ 
FUNCTIONAL DESCRIPTION: 
Scan cow aee and output text associated with each adapter. 
ext is to match yy what a user would type for the 
/ADAPTER qualifier or the AUTOCONFIGURE ‘‘adapter’’ command. 
; CALLING SEQUENCE: 
Called from TPARSE as an action routine 
INPUT PARAMETERS: 
TPASL_NUMBER(AP) = Number in generic specifier (e.g. 0 if ‘'UBO’’) 
IMPLICIT INPUTS: 
CONFREG. 
str.size and str_istart - Set up by previous TPARSE routines as 
length and character string in generic adapter type. 
OUTPUT PARAMETERS: 
RO Completion code 
; IMPLICIT OUTPUTS: 


TPASL_NUMBER(AP) is set to appropriate nexus number. 


part 
WALANIAILNI AIAN ANIAI ANIA 
DPDADARAEARAAA AA AA AA AA AA AA AAA AAA OS 


WAWWWWA AWA AWAWWW 


Register usage 


Base address of adap_idx array 

Base address of adap_txt array 

Index through loo 

addr(adapter text 

occurance of this type adapter . 

R9 = Size in bytes of input adapter string 

R10 = Address of input adapter string 

R11 = Size in bytes of array (16 for 1 SBI. 32 for 2) 


@D 
io 
seoeeee 


TE rETErErerererererer 
» 
~ 


-Entry BooSAdapter_Name, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 


59 0505"¢t D movl w*str_size,R9 Size of adapter name string 


ce ee ee ee a ee a ee a a ee a ee ee ak ee ee a a a a a od a a a a a dD 
~“ 
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1 beql ; Branch to invalid name error if zero 
SA O30D°CF 9E 108: movab w*str_start,R10 ; Address of adapter name 
OOOOOIA1°EF O00 FB calls #0,Get_All_Adap ; Fill im Adap_txt and Adap_idx 
46 50 €9 blbc RO,40$ ; Branch if error 
56 4 clr R6 ; initialize index 
5B O0000000°EF 00 mov exe$gl_numnexus R11 ; Set count (User readable location) 
54 O100°CF 9€ movab w*boo$ab_adap_idx,R4 ; Adapter index table 
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| v04-000 = BOOSADAPTER_NAME = generic adapter nam 4-SEP-1984 25:06:02 ([BOOTS.SRCJSHOWADAP.MAR; 1 
55 O1GO'CF OVE 136 : i movab w*boo$ab_adap_txt,R5 ; Adapter text table 
57 6546 00 161 429 208: mov (R5)CR6),R7 : Get address of text descriptor 
1€ #1 169 430 beql 0$ ; Branch if zero 
58 6446 98 016 43) cvtbl (R4)CR61,R8 3; Get index count 
18 «#619 i : ¢ blss 30$ ; Branch if non-generic 
59 67 861 Diep 434 cmpw (R7),R9 ; Compare Lengths 
13.—s«12 O12 : 5 bneq 30$ : Branch if not equal 
1c AC) 658)—COsCéQ7 239 cmpl R8,Tpa$l_number (AP) 3; Check occurance number 
OD 12 178 $38 bneq 30$ 3; Branch if not equal 
0487 6A 59 29 0178 440 cmpc3 = R9, (R10) ,a4(R7) ; Comapre actual strings 
06 12 p12 a bneq 30$ 3; Branch if not equal 
1c AC 56 DO OI7F 108 movl R6, Tpa$l_number (AP) ; Set adapter number 
18 «11 0183 Aad brb 50$ 
D8 56 «65B~ F2 34 3 rr 30$: aoblss R11,R6,20$ ; Loop R11 times, incrementing R6 
50 OO7C80BA 8F DO 0189 448 35S: movl #sysg$_invadap,RO ; Set error 
1c AC) 6001s«éC Sha 24 mnegl #1,Tpa$l_number (AP) ; Set adapter number 
50 DD 0194 451 40S: pushlt RO ; ; push error status 
O0000000'GF 01 FB 0196 43g calls #1,G*Lib$Signal 3; Signal error 
0190 453 50$: 
50 01 DO 0190 454 mov l #1,R0 ; Set success 
04 O1A0 455 ret 3 return 
0O1A1 456 


03 000003AB EF 
0088 


01 50 

53 240°CF 
4 iS 

FB 84 

50 

51 _00000000'EF 
26 0000° CF 
5 0240'CF 
54 0100'CF 
55 0140°CF 
56 82 

3A 


57 QOO003AF "EF 


58 8 

2 

68 5 

F 

6440 0 
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59 = 06_A8 
6440 6349 
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6540 0000039C'EF 
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= SHOW ADAPTER and GENERIC ADAPTER NAMES 16-SEP-1984 


Get_All_Adap = Get all adapters into rea 4-SEP-1984 


«Sbttl Get_All_Adap = Get all adapters into readable format 


99:03:09 VAX/VMS Macro v04-00 Page 


BOOTS. SRC JSHOWADAP .MAR; 1 


Branch if first call here 
Exit, no work necessary 


Read confreg into user readable area 
Branch on success 
return with error 


Count block 
size — 

zero it out 
loop 


initialize index 5 
Set count (User readable location) 
Set address of output block 

Count block 

Adapter index table 

Adapter text table 


Get adapter (S$NDTDEF) type 
Branch if nothing on nexus 


Set address of descriptor array 


; arrays adap_idx and adap_txt is now filled in for this nexus. 


muere be non-zero for a nexus with a known adapter 


l be a positive integer (0 through n) indicating 
; its occurance count, or negative indicating that it is a memory 


Get next block (defined by Adapter) 
Adapter type not found 

Adapter type match ? 

Loop if not 


Assume not generic 
Branch if not 


Set adapter type index 
Move occurance count to adap_idx array 


39 

4 

re -Entry Get _all_adap,“M<R2,R3,R4,R5,R6,R7,R8,R9> 

46 blbc salted. flag. 108 

rt brw 110$ 

465 108: SCMEXEC_S w*Read_Confreg 

46 blbs RO,15$ 

46 ret 

468 

$$? 15$: movab w*boo$ab_count_blk,R3 

470 movzbl #boo$c_count_bTk,R4 

471 20$: clrb (R3)+ 

$f¢ sobgtr R4,20$ 

47 

474 clrl RO 

475 mov l exe$gl_numnexus,R1 

o76 movab ws peezepcontees blk, R2 

47 movab w*boo$ab-count_bTk,R3 

478 movab w*boo$ab_adap_idx,R4 

4 movab w*boo$ab_adap_txt,R5 

481 40$: mov (R2)+,R6 

rt { beql 90$ 

rt} movab boo$al_adap_table,R7 

486 ‘ 

487 ; adap_txt will 

rt ; on it. adap_idx wi 

re ; adapter with no generic name. 

49 

493 50$: mov l (R7)+,R8 

494 beql 80 

495 cmpl R6,l_constant (R8) 

496 bneq 508 

498 mnegb #1, (R4) CROJ 

499 bc #boo$v_generic,- 

w_flags(R8) ,60$ 

movzwl w_index(R8) ,R9 
movb = (R3) R93]. (RADCROJ 
incb (R3) CRO 


———  DOODOOCOOCOS 
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60$: movab 
b 


80$: 


90$: clrb 


L_name(R8),(R5) CRO] 
100$ 


unk_adap, (R5) CRO) 
CRATEROD 
00$ 


Increment occurance count 


Set text descriptor address 
end of loop 


Unrecognized adapter type 
Set “‘Unknown’’ text descriptor address 
No adapter count 


No adapter count 
No adapter text 


~~ 
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v04-000 Get_All_Adap = Get all adapters into rea 4-SEP-1 6:02 (CBOOTS.SRCJSHOWADAP.MAR; 1 (4) 
15 
or 3 6ST. 82 ee H 100$:  aoblss R1,R0,40$ ; Loop R1 times 
| QOOOO3SAB‘EF O01 CE 1 18 mnegt #1,called_flag ‘i flag indicating routine called 
50 01 00 0238 519 1108: # mov #1,R0 ; Set success 
04 0238 520 ret 
023c = 3= 21 
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oo 
SHOWADAP = SHOW ADAPTER and GENERIC ADAPTER NAMES 16-SEP-1984 :03:09 YAX/VMS Macro v04-00 Pa 
v04-000 Read_Confreg - Read adapter conf soratta aaa 38 Oa ib3 feoors. sre SHOWADAP MAR; 1 ™ 
f ; -sbttl Read_Confreg - Read adapter configuration array 
001C ; i -Entry READ _CONFREG, “M<R2,R3,R4> 
E ; 
; 8 : EXEC mode routine to read CONFREG into user-mode readable area 
E 0° 
52 0000000 °EF 4 3 1 movl exe$gl_confregl,R2 ; Set address of confreg 
54 0000000 ° EF 4 ¢ mov | exe$gil_numnexus ,R4 3; Set count 
5 0000° CF E of ? movab w*boo$ab_confreg_blk,R3 ; Set address of output block 
83 82 oD 3} ; 5 108: mov l (R2)+,(R3)+ :; 4 bytes (1 CONFREGL entry) at a time 
FA 54 OF 0 34 3 2 sobgtr r4,10$ ¢ Loop until done 
50 01 pO 0257 538 mov l #1,R0 ; Set success 
04 O25A 539 ret ; Return 
0258 540 
0258 541 


a 
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0000 . 

5°CF 4 D 

0309° CF O300' oe 61 
1C AC n & oe 
04 6C 

6D 

0000 4 

51. O309°CF 00 ; ef 
81 18 AC 90 0274 
03509°CF 51 DO 0278 
O305°CF 06 8 7D 

04 8 81 

0988 
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apter name parsing routines P19 


BOOTS. she SHOWADAP .MAR ; 1 


43 .sbttl TPARSE adapter name parsing routines 


44 
$2 -Entry BooSReset_Adap, “M<> 
‘3 clrl w*str size 
‘8 movab ’ “str_ cart.y “str_addr 
$3 mnegl #1,tpa$l “number (AP) 
2) ret 
i -Entry Boo$SAdap_Letter, “M<> 
5 movl w*str_addr,R1 
2 movb ears oer tap). (R1)+¢ 
5 movl 8 tr_addr 
558 incl w*str_size 
559 ret 
560 
561 - END 


Zero size 
Set start address 
Assume adapter zero 


Return 


Current string pointer 
Move and increment address 
Set new address 

Increment size 


— 
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Symbol table 4-SEP-1984 25:06:02 (CBOOTS.SRCIJSHOWADAP.MAR; 1 (4) 
$$$ : AIR 03 NDTS_MENTG6GNI 2 12 
| SSBASE s 1 WOTS_RERI l s 1 
$$01SPL : A NDTS$-MEM16NI z 19 
SSGENSW = 1 NDTS_MEM4I = 0 
SSHIGH 2 9 NDTS_MEMGNI = 08 
SSLIMIT = 8 NOTS_MEM64EIL = 6 
$$LOW s 1 NDTS_MEMO64E IU s 0068 
SSMNSW = 90000001 NDT$“MEM641 = 9000006¢ 
SSMXSW z 1 NDTS_MEMO4NIL = 0000006 
$$T2 = 00000005 NDTS_MEM64NIU = 0000006A 
Bil... = 00000001 NDTS_MP = 44 4k 
BOOSAB_ADAP_1DXx 1 9 4 9 NDT$_MPM1 = 4 041 
“ADAP~TXT 0000140 R NDT fone = 00 O06¢ 
BOOSAB_ CONF REG BLK 0 3008 ® 8 NOTS_MPM = 0000004 
BOOSAB- COUNT BLK 0000240 R NDT$_UBO = 00000028 
BOOSADAPTER_RAME i 136 RG = (04 NDT$_UB1 = 00000029 
BOOSADAP_LETTER 00 td RG 04 wo Ts -UB¢ = 0000002A 
BOOSAL_ABAP_TABLE OOOSAF R 02 NDT$_UB = 00000028 
BOOSC_COUNT- BLK = 00000014 OUTPOT MODEL 000001 9 # 04 
GENERTC = 944 64 PR$_SIB_TYP Ht = 0000000 
TPUT_DESC QOO000A4 RG 04 PRS_SID_TYP750 = 00000002 
BOOSRESET_ADAP 00000258 RG 04 PRS_SID_TYP780 = 00000001 
BOOSSHOW ADAPTER 00000000 RG 04 PR$_SID_TYP785 = 00000009 
BOOSV_GERERIC = 00000000 PRS$_SID_TYP790 = 00000004 
BUGS_ONSUPRTCPU eeneeeee§ =X 04 PR$_SID_TYPMAX = 00000008 
C7 900008 4 R 02 PRS_SID_TYPUV1 = 00000007 
C730_MODEL 000010A R 04 PR$-SID-TYPUV2 = 00000008 
C7 0000026C R 02 READ_CORFREG 0000023C RG 04 
C750_MODEL 00000102 R 04 RIOSAB_BUFFER eeneeeee =X 04 
C7 00000254 R 02 RIOSAB_OUTBUF eeeeeeee =X = 0G 
C780_MODEL OOOOOOFA R 04 RIOSGW_OUTLEN eeeneeee KX 04 
C785 00000284 R 02 RIOSOUTPUT_LINE eeeeeeee =X 04 
C785_MODEL 0000012A R 04 SHOW_ CPU 00000089 RG 04 
C7 4 st R 02 Sizes = 00000001 
C€790_MODEL 0000112 R 04 STR_ADDR 00000309 R 02 
CALLED FLAG O0003AB R 02 STR_SIZE 00000305 R 02 
CTR_GERERIC 0000032D R Os STR-START 00000300 R 02 
CTR-MEMORY 00000348 R 0 SYSSCMEXEC eeenenee GX 04 
cuvT OO0002CC R 02 SYSSFAO aeeneeee =X = 04 
CUV1_MODEL i 11A R 04 SYSG$_INVADAP = 007C80BA 
00002E8 R 02 TPASB_CHAR = 00000018 
CUuv2_MODEL BR 008 168 R 04 TPASL_NUMBER = e's Bh 
SHOW_CPU 000001355 R 04 TRAILER 00000394 R 8s 
EXESGB_CPUDATA eeeneeee 6X 4 UNK_ADAP 0000039C 0 
EXESGB-CPUTYPE teeeeeee = X 04 w_FCAGS = 00000004 
EXESGL_ CONF REGL eeeerere XxX 04 W_INDEX = 00000006 
EXESGL~NUMNE XUS eeeeeeee§ =X 04 
GET_ALC_ADAP OO001A1 RG 04 
HEADER 0000366 02 
LF = 0000000A 
LIBSSIGNAL tereeeee =X 04 
L_CONSTANT = 00000000 
E = B88 bes 
MAXNEXUS = 00 4 
NDTS~DR32 = $6000030 
* = 00000020 
| 
L 
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|Psect synopsis 46-SEP-1984 25:06:02 ([BOOTS.SRCJSHOWADAP.MAR; 1 (4 


$eooceccece wcornmes 
! Psect synopsis ! 
bene ancane ocesecane } 
PSECT name Allocation PSECT No. Attributes 


) 


S$ 
PAGED_DATA 
PAGED“DATA_2 SHR NOEXE RD WRT NOVEC QUAD 
PAGED~CODE SHR EXE RD NOWRT NOVEC LONG 


LLL PO 


0( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 

¢:) NOPIC USR CON REL cL NOSHR NOEXE RD WRT NOVEC QUAD 
0 4:) NOPIC USR LCL NO 


Phase Page faults CPU Time Elapsed Time 


00:00:00.91 


Initialization 
Command processing : 
Pass 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 0 
Assembler run totals 551 


Soooooooo 
Coooooooo 
Soooooooo 
ooooocooeo 
ooooooeco 
ooooooeoo 

WOoODWoOneo 


MOCOOO—o 
NOoCOWOWe 
— * o . . 
WSS>=BNSS 

o 


ioe. york ing set Limit was 1500 pages. , 

56346 bytes (111 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 274 non-local and 37 local symbols. 
561 source Lines were read in Pass 1, producing 45 object records in Pass 2. 

27 pages of virtual memory were used to define 23 macros. 
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Macro Library name Macros defined 


.$255$DUA28 : (BOOTS .OBJ BOOTS .MLB; 1 0 
_9255$DUA28: (SYS .OBJJLIB.MLB; 1 5 
$255$DUA28: CSYSLIBISTARLET.MLB;2 9 

TOTALS ‘all libraries) 14 
404 GETS were required to define 14 macros. 

There were no errors, warnings or information messages. 
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